home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / MUSIUSIC / PCORGAN.LZH / MUZAKE.EXE / MUZAK.BAS < prev    next >
BASIC Source File  |  1986-09-12  |  4KB  |  97 lines
  1. 10 'MUZAK.BAS By Aaron Priven V2.11 11/2/85
  2. 20 DEFINT A-Z:RESTORE:RANDOMIZE TIMER
  3. 30 PLAY"mbt120mn"
  4. 40 CLEAR: KEY OFF: OPEN "TEMP.MUZ" FOR INPUT AS #1:INPUT #1,DF$,DP$:CLOSE#1
  5. 50 CLS:LOCATE 1,1:COLOR 0,7:PRINT TAB(40-(LEN(DP$))\2) DP$ TAB(80)" ":COLOR 7,0
  6. 60 OPEN DF$ FOR INPUT AS #1:INPUT#1,N
  7. 70 DIM INK$(N),PROMPT$(N),WORDS(N),FILE$(N)
  8. 80 FOR A=1 TO N:READ INK$(A):NEXT
  9. 90 FOR A=1 TO N:INPUT#1,WORDS(A),FILE$(A),PROMPT$(A):NEXT
  10. 100 CLOSE:FOR A=1 TO N-1 STEP 2
  11. 110 LOCATE A\2+2,1
  12. 120 PRINT INK$(A);
  13. 130 PRINT " - ";PROMPT$(A);
  14. 140 LOCATE ,40
  15. 150 PRINT INK$(A+1);
  16. 160 PRINT " - ";PROMPT$(A+1)
  17. 170 NEXT A
  18. 180 IF N\2<>N/2 THEN PRINT INK$(N);" - ";PROMPT$(N)
  19. 190 LOCATE 23,1:COLOR 0,7:PRINT TAB(29);"Escape Key - End Program";TAB(80):COLOR 7,0
  20. 200 LOCATE 24,1:COLOR 0,7:PRINT TAB(18);"Enter Letter of Music or Return for New Menu";TAB(80):COLOR 7,0
  21. 210 POKE 106,0 'CLEAR KYBD BUFFER
  22. 220 K$ = INKEY$:IF K$ <> "" THEN GOTO 210
  23. 230 K$ = INKEY$:IF K$ = "" THEN GOTO 230
  24. 240 K$=MID$(K$,1,1):FLAG=0
  25. 250 IF K$<="z" AND K$>="a" THEN K$=CHR$(ASC(K$)-32)
  26. 260 FOR A=1 TO N:IF K$=INK$(A) THEN F=A:FLAG=1
  27. 270 NEXT
  28. 280 IF FLAG=0 THEN 300
  29. 290 A$=FILE$(F):IF WORDS(F)=0 THEN 490 ELSE 310
  30. 300 IF K$=CHR$(27) THEN CLS:SYSTEM ELSE IF K$=CHR$(13) THEN CLEAR:RUN 730 ELSE 210
  31. 310 OPEN A$ FOR INPUT AS #1
  32. 320 CLS:LOCATE 11,2:PRINT CHR$(213)+STRING$(76,205)+CHR$(184)
  33. 330 LOCATE 15,2:PRINT CHR$(212)+STRING$(76,205)+CHR$(190)
  34. 340 FOR K=1 TO 3
  35. 350 INPUT #1,K$:T=(80-(LEN(K$)))\2
  36. 360 LOCATE K+11,2:PRINT CHR$(179);:LOCATE K+11,T:PRINT K$;:LOCATE K+11,79:PRINT CHR$(179)
  37. 370 NEXT K
  38. 390 INPUT #1,F:DIM P$(F)
  39. 400 FOR X=1 TO F
  40. 410 INPUT #1,P$(X)
  41. 420 NEXT X
  42. 430 CLOSE:PLAY"mb"
  43. 440 FOR Y=1 TO F:PLAY P$(Y):IF INKEY$=CHR$(27) THEN RUN
  44. 450 IF Y=F-1 THEN PLAY"mf"
  45. 460 NEXT Y
  46. 470 PLAY"mfp2"
  47. 480 RUN
  48. 490 ' WITH WORDS
  49. 500 OPEN A$ FOR INPUT AS #1
  50. 510 CLS:LOCATE 11,2:PRINT CHR$(213)+STRING$(76,205)+CHR$(184)
  51. 520 LOCATE 15,2:PRINT CHR$(212)+STRING$(76,205)+CHR$(190)
  52. 530 FOR K=1 TO 3
  53. 540 INPUT #1,K$:T=(80-(LEN(K$)))\2
  54. 550 LOCATE K+11,2:PRINT CHR$(179);:LOCATE K+11,T:PRINT K$;:LOCATE K+11,79:PRINT CHR$(179)
  55. 560 NEXT K
  56. 580 INPUT #1,F:F=F*2:DIM P$(F):LOCATE 18,1
  57. 590 FOR X=1 TO F
  58. 600 INPUT #1,P$(X)
  59. 610 NEXT X
  60. 620 CLOSE:PLAY"mf"
  61. 630 FOR Y=2 TO F STEP 2
  62. 640 IF RIGHT$(P$(Y-1),1)<>"|" THEN 680
  63. 650 X=LEN(P$(Y-1))
  64. 660 X=X-1
  65. 670 PRINT LEFT$(P$(Y-1),X):GOTO 690
  66. 680 PRINT P$(Y-1);
  67. 690 PLAY P$(Y):IF INKEY$=CHR$(27) THEN RUN ELSE NEXT Y
  68. 700 PLAY"mfp2":RUN
  69. 710 'DATA FOR INK$
  70. 720 DATA A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,1,2,3,4,5,6,7,8,9,0,-,=,+,*
  71. 730 RESTORE:KEY OFF:CLS:LOCATE 1,1:COLOR 0,7:PRINT TAB(26);"MUZAK: Which Group of Songs";TAB(80)" ":COLOR 7,0
  72. 740 OPEN "DEFINTN.MUZ" FOR INPUT AS #1:INPUT#1,N
  73. 750 DIM INK$(N),PROMPT$(N),FILE$(N)
  74. 760 FOR A=1 TO N:READ INK$(A):NEXT
  75. 770 FOR A=1 TO N:INPUT#1,FILE$(A),PROMPT$(A):NEXT
  76. 780 CLOSE:FOR A=1 TO N-1 STEP 2
  77. 790 LOCATE A\2+2,1
  78. 800 PRINT INK$(A);
  79. 810 PRINT " - ";PROMPT$(A);
  80. 820 LOCATE ,40
  81. 830 PRINT INK$(A+1);
  82. 840 PRINT " - ";PROMPT$(A+1)
  83. 850 NEXT A
  84. 860 IF N\2<>N/2 THEN PRINT INK$(N);" - ";PROMPT$(N)
  85. 870 LOCATE 23,1:COLOR 0,7:PRINT TAB(28);"Escape Key - End Program";TAB(80):COLOR 7,0
  86. 880 LOCATE 24,1:COLOR 0,7:PRINT TAB(30);"Enter Letter of Music";TAB(80):COLOR 7,0
  87. 890 POKE 106,0 'CLEAR KYBD BUFFER
  88. 900 K$ = INKEY$:IF K$ <> "" THEN GOTO 900
  89. 910 K$ = INKEY$:IF K$ = "" THEN GOTO 900
  90. 920 K$=MID$(K$,1,1):FLAG=0
  91. 930 IF K$<="z" AND K$>="a" THEN K$=CHR$(ASC(K$)-32)
  92. 940 FOR A=1 TO N:IF K$=INK$(A) THEN F=A:FLAG=1
  93. 950 NEXT
  94. 960 IF FLAG=0 THEN 980
  95. 970 OPEN"TEMP.MUZ" FOR OUTPUT AS #3:WRITE#3,FILE$(F),"MUZAK: "+PROMPT$(F):CLOSE#3:RUN
  96. 980 IF K$=CHR$(27) THEN CLS:SYSTEM ELSE 890
  97.